﻿Partial Public Class LoadFileDialog

    Public i As Boolean = False

    Private Sub LoadFileDialog_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) _
    Handles Me.Closing
        If i = False Then
            e.Cancel = True
        End If
    End Sub

    Private Sub LoadFileDialog_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) _
    Handles Me.Loaded
        If MS.WindowsAPICodePack.Internal.CoreHelpers.RunningOnVista Or _
        MS.WindowsAPICodePack.Internal.CoreHelpers.RunningOnWin7 Then
            If My.Settings.Options_IsGlassOn Then
                GlassHelper.ExtendGlassFrame(Me, New Thickness(-1, -1, -1, -1))
            End If
        End If
    End Sub
End Class